0 ; (null)ASTER-(null)ASTER 0.11 31.10.1988
1 ; (C) 1988 BY  (null) LEN
2 ;
3 .GL BILD      = $1B    ;AN
4 .EQ ZEILE1    = $26
5 .EQ ZEILE2    = ZEILE1+2
6 .EQ NORMAL    = 14
7 ;
8 .GL IRQVECT   = $0314
9 ;
10 .GL VICCTRL1  = $D011  ;(null)RIGHT$LEN-CONTROL-REG.
11 .GL RASTER    = $D012
12 .GL IRQFLAGS  = $D019
13 .EQ IRQMASKS  = $D01A
14 .EQ BORDER    = $D020
15 ;
16 .EQ CIA1ICR   = $DC0D
17 ;
18 .EQ OLDIRQ    = $EA31
19 .EQ IRQRET    = $EA7E
20 ;
21 ;***** (null)AKROS *****
22 .MA SETIRQ (ZEILE)
23  LDA#BILD!O!((ZEILE/2)!A!$80)
24  STAVICCTRL1
25  LDA#<(ZEILE)
26  STARASTER
27  LDA#$FF;LOESCHEN
28  STAIRQFLAGS
29 .RT
30 ;
31 .MA SETVECT (ROUT)
32  LDA#<(ROUT)
33  LDY#>(ROUT)
34  STAIRQVECT
35  STYIRQVECT+1
36 .RT
37 ;
38 ;+++++ (null)TARTADRESSE +++++
39 ;
40  .BA$9000
41 ;
42  JMPINIT
43  JMPAUS
44 ;
45 ;***** (null)ORBEREITUNG *****
46 INIT SEI
47 ; (null)IMER-RIGHT$(null)(null) VERHINDERN
48  LDA#$7F
49  STACIA1ICR
50 ; (null)ASTER-RIGHT$(null)(null) ERLAUBEN
51  LDA#$01
52  STAIRQMASKS
53 ;
54  ...SETVECT(ROUT)
55  ...SETIRQ(ZEILE1)
56  CLI
57 ;
58  RTS
59 ;
60 ;***** VALNDE *****
61 AUS SEI
62 ; (null)ASTER-RIGHT$(null)(null) VERHINDERN
63  LDA#$00
64  STAIRQMASKS
65 ; (null)IMER-RIGHT$(null)(null) ERLAUBEN
66  LDA#$81
67  STACIA1ICR
68  ...SETVECT(OLDIRQ)
69 ;
70  CLI
71  RTS
72 ;
73 ;***** RIGHT$RQ-(null)OUTINEN *****
74 ;
75 TOOLATE JMPIRQRET
76 ;
77 ;----- GRUENER (null)TRICH = '(null)ASTER-(null)ASTER'
78 ;
79 ROUT LDA#<(ZEILE2)
80  CMPRASTER
81  BCCTOOLATE
82  BEQTOOLATE
83 ;
84 WZEILE CMPRASTER
85  BNEWZEILE
86 ;
87  LDX#10
88 WARTE1 DEX
89  BNEWARTE1
90 ;
91  NOP
92  LDARASTER;59-66
93  CMP#<(ZEILE2+1)
94  BEQOK1
95  BIT$AA
96  NOP
97 ; 68-71
98 OK1 LDX#9
99 WARTE2 DEX
100  BNEWARTE2
101 ;
102  NOP
103  NOP
104  NOP
105  LDARASTER;124-127
106  CMP#<(ZEILE2+2)
107  BEQOK2
108  BIT$AA
109 ; 131-132
110 OK2 LDX#10
111 WARTE3 DEX
112  BNEWARTE3
113 ;
114  NOP
115  LDARASTER;188-189
116  CMP#<(ZEILE2+3)
117  BNEOK3
118 ; 194!
119 ;---------
120 OK3 LDX#3
121 WARTE4 DEX
122  BNEWARTE4
123 ;
124  NOP
125  NOP
126  NOP
127  LDA#0
128  STABORDER
129  LDA#NORMAL
130  STABORDER
131 ;
132  LDA#$FF
133  STAIRQFLAGS
134  JMPOLDIRQ
135 ;
136 ;+ + + + +   VAL (null) STR$ VAL   + + + + +